MacFormat 1999 Spring/macformat-077.iso/Demos/RealPool Demo/3D.DAT/00023.ls

Text File | 1998-05-02 | 517 b | 24 lines

global roomp, matchp

on mouseDown
  set ml to ((the mouseV - the top of sprite the clickOn) / (the height of cast the number of member the castNum of sprite the clickOn / 2)) + 1
  if (ml < 1) or (ml > 5) then
    exit
  end if
  set playermode2 to ml - 1
  case playermode2 of
    0:
      set roomp to not roomp
    1:
    2:
      if the soundLevel <> 0 then
        set the soundLevel to 0
      else
        set the soundLevel to 7
      end if
    3:
      set matchp to not matchp
  end case
  cursor(-1)
end